home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / C-Communications / (c)c2.d64 / terminal.vic (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  2KB  |  91 lines
  1. 5 REM DSAVE"@TERMINAL.VIC"
  2. 50 REM" TERM.VIC  WRITTEN BY STEVE PUNTER  CONVERTED TO [214][201][195] BY KEITH PETERSON
  3. 100 [139][194](14592)[179][177]76[167][147]"TERM.VIC",8,1
  4. 105 [151]56,56:[151]644,56:[156]:[159]5,2,0,[199](6)[170][199](0)
  5. 110 RE$[178]" ":SE$[178]" ":MO%[178]134:R%[178]0:C$[178]"0123456789ABCDEF"
  6. 115 RP[178]2:RS[178]0:WP[178]RP:WS[178]RS
  7. 120 ML[178]14592:[151]ML[170]1791,RP:[151]ML[170]1790,RS[170]96:[151]ML[170]1789,WP:[151]ML[170]1788,WS[170]96
  8. 130 [153][199](14):[151]ML[170]1785,0
  9. 135 [159]1,8,15:[151]556,0:[151]552,0:[151]553,1
  10. 140 DN$[178]"":[137]150
  11. 145 [161]#5,A$,A$:[158]ML[170]0:[160]11:[151]ML[170]1785,0:TM[178]0:[137]105
  12. 150 [153]"LOADASCUNCTION:"
  13. 155 [153]"1 - (null)ERMINAL (null)ODE"
  14. 160 [153]"2 - (null)ECEIVE PROGRAM"
  15. 165 [153]"3 - (null)RANSMIT PROGRAM"
  16. 185 [153]"4 - (null)UIT"
  17. 190 [161]A$:[139]A$[178]""[167]190
  18. 195 [145][197](A$)[137]145,500,670,765
  19. 200 [137]190
  20. 500 [143] RECEIVE A PROGRAM
  21. 505 [153]"(null)AME OF ASCILE?"
  22. 510 [153]"STR$EFAULT DRIVE IS #0":[153]">";:[141]800:S$[178]B$
  23. 515 [139]S$[178]""[167][152]5,"A";:[137]145
  24. 520 [139][202](S$,2,1)[179][177]":"[167]S$[178]"0:"[170]S$
  25. 525 [141]625:S$[178]"@"[170]S$[170]T$[170]",W"
  26. 530 [160]2:[159]2,8,2,S$:[141]835:[139]ES[167][153]ES$:[160]2:[137]505
  27. 535 [152]5,"TTTTTTTTTT";
  28. 545 [129]X[178]0[164]10:[130]:[161]#5,A$:[139]A$[179][177]""[167]545
  29. 546 [158]ML[170]18:[139][194](144)[178]2[167]570
  30. 550 [129]X[178]0[164]10:[130]:[161]#5,A$:[139]A$[179][177]""[167]550
  31. 555 S1[178][194](ML[171]2):S2[178][194](ML[171]1):[158]ML[170]12
  32. 560 [139]S1[179][177][194](ML[171]2)[176]S2[179][177][194](ML[171]1)[167]575
  33. 565 [158]ML[170]15:[152]5,"";:[153]"-";:[137]545
  34. 570 [160]2:[152]5,"SSSSSSSSSS";:[153]:[137]145
  35. 575 [152]5,"";:[153]":";:[137]545
  36. 580 [153]"(null)YPE OF ASCILE:"
  37. 585 [153]"((null))ROGRAM, ((null))ORD(null)RO, OR ((null))EQ?":[153]">";
  38. 590 [161]B$:[139]B$[178]""[167]590
  39. 595 TY$[178]B$:FL[178]0
  40. 600 [139]B$[178]"P"[167]T$[178]",P":[151]557,0:[153]"(null)ROGRAM":[142]
  41. 605 [139]B$[178]"S"[167]T$[178]",S":[151]557,0:[153]"(null)VAL(null)":[142]
  42. 610 [139]B$[178]"W"[167]T$[178]",P":[151]557,1:[153]"(null)ORD(null)RO":[142]
  43. 615 [139]B$[178][199](13)[167]FL[178]1:[142]
  44. 620 [137]590
  45. 625 [161]#5,A$:[139]A$[179][177]""[167]625
  46. 626 [152]5,"UUUUUUUUUU";
  47. 630 [161]#5,A$:[139]A$[178]""[167]630
  48. 635 [139]A$[178]"P"[167]T$[178]",P":[151]557,0:A$[178]"(null)ROGRAM":[137]655
  49. 640 [139]A$[178]"S"[167]T$[178]",S":[151]557,0:A$[178]"(null)VAL(null)":[137]655
  50. 645 [139]A$[178]"W"[167]T$[178]",P":[151]557,1:A$[178]"(null)ORD(null)RO":[137]655
  51. 650 [137]630
  52. 655 [153]"ASCILE (null)YPE: "A$""
  53. 660 [161]#5,A$:[139]A$[179][177]""[167]660
  54. 665 [142]
  55. 670 [143] SEND AN SEQ FILE TO BULLETIN BOARD
  56. 675 [153]"(null)AME OF ASCILE TO (null)END?":[153]">";:[141]800:S$[178]B$
  57. 680 [139]S$[178]""[167][152]5,"A";:[137]145
  58. 685 [141]580:[139]FL[167]S$[178]"":[137]680
  59. 690 [160]2:[159]2,8,2,S$[170]T$:[141]835:[139]ES[167][153]ES$:[160]2:[137]675
  60. 695 [129]X[178]1[164]10:[152]5,TY$;:[130]X:[153]
  61. 700 [161]#5,A$:[139]A$[179][177]"U"[167]700
  62. 705 [158]ML[170]9:CK[178][194](144)
  63. 710 [161]#5,A$:[139]A$[179][177]""[167]710
  64. 715 [129]X[178]1[164]500:[130]:[143] DELAY LOOP
  65. 720 [129]T[178]0[164]255:[152]5,[199]([194](ML[171]256[170]T));:[130]T
  66. 725 [152]5,"ZZZZZZZZZZZZZZZ";
  67. 730 [161]#5,A$:[139]A$[178]""[167]730
  68. 735 [139]A$[178]""[167][153]":";:[137]710
  69. 740 [139]A$[179][177]""[167]730
  70. 745 [139]CK[178]0[167][153]"-";:[137]705
  71. 750 [161]#5,A$:[139]A$[179][177]""[167]750
  72. 755 [160]2:[161]A$:[139]A$[179][177]""[167]755
  73. 756 [137]145
  74. 760 [158]ML[170]21:A$[178][199]([194](634)):[142]
  75. 765 [143] QUIT TERMINAL
  76. 790 [160]5:[160]1:[160]2:[160]11
  77. 792 [153][199](9)
  78. 795 [128]
  79. 800 [153]" WAITCMD";:B$[178]""
  80. 805 [161]A$:[139]A$[178]""[167]805
  81. 810 [139]A$[178][199](20)[167]825
  82. 815 [139]A$[178][199](13)[167][153]" ":[142]
  83. 820 B$[178]B$[170]A$:[153]" CMD"A$" WAITCMD";:[137]805
  84. 825 [139][195](B$)[178]0[167]805
  85. 830 B$[178][200](B$,[195](B$)[171]1):[153]A$;:[137]805
  86. 835 [143] GET ERROR CHANNEL
  87. 840 [132]1,E1$,E2$,E3$,E4$
  88. 845 ES$[178]E1$[170]","[170]E2$[170]","[170]E3$[170]","[170]E4$
  89. 850 ES[178][197](E1$):[142]
  90. 0 
  91.